Cyber Strip Poker/Cyber Strip Poker.rar/IMAGE.img/pok38pc.dir/00076_Script_76

Text File | 1995-08-14 | 14KB | 668 lines

--CheckDHand
on checkDHand
  global Drawn,Dfeel
  set Dfeel=0
  set drawn=0
  global dcard1,dcard2,dcard3,dcard4,dcard5,dcard6,dcard7,dcard8
  global d1,d2,d3,d4,d5
  global ds1,ds2,ds3,ds4,ds5
  -- checkStraightFlush
  if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) and (d2-d1=1) and ¼
  (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
    set drawn=0
    set dfeel=250
    exit
  end if
  -- checkFlush
  if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) and (ds4=ds5) then
    set drawn=0
    set dfeel=200
    exit
  end if
  -- checkStraight
  if (d2-d1=1) and  (d3-d2=1) and (d4-d3=1) and (d5-d4=1) then
    set drawn=0
    set dfeel=160
    exit
  end if
  -- checkFourStraightFlush
  if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=1) and (ds3=ds4) and (d4-d3=1) then
    set drawn=1
    set dcard5=dcard6
    set dfeel=50
    sort
    exit
  end if
  if (ds2=ds3) and (d3-d2=1) and (ds3=ds4) and (d4-d3=1) and (ds4=ds5) and (d5-d4=1) then
    set drawn=1
    set dcard1=dcard6
    set dfeel=50
    sort
    exit
  end if
  if (ds1=ds3) and (d3-d1=2) and (ds3=ds4) and (d4-d3=1) and (ds4=ds5) and (d5-d4=1) then
    put "Four Straight Flush" into dhand
    set drawn=1
    set dcard2=dcard6
    set dfeel=70
    sort
    exit
  end if
  if (ds1=ds2) and (d2-d1=1) and (ds2=ds4) and (d4-d2=2) and (ds4=ds5) and (d5-d4=1) then
    set drawn=1
    set dcard3=dcard6
    set dfeel=80
    sort
    exit
  end if
  if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=1) and (ds3=ds5) and (d5-d3=2) then
    set drawn=1
    set dcard4=dcard6
    set dfeel=50
    sort
    exit
  end if
 if (ds1=ds2) and (d2-d1=2) and (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=1) then
    set drawn=1
    set dcard5=dcard6
    set dfeel=50
    sort
    exit
  end if
 if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=2) and (ds4=ds3) and (d4-d3=1) then
    set drawn=1
    set dcard5=dcard6
    set dfeel=50
    sort
    exit
  end if
if (ds1=ds2) and (d2-d1=1) and (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=2) then
    set drawn=1
    set dcard5=dcard6
    set dfeel=50
    sort
    exit
  end if
if (ds2=ds3) and (d3-d2=2) and (ds4=ds3) and (d4-d3=1) and (ds5=ds4) and (d5-d4=1) then
    set drawn=1
    set dcard1=dcard6
    set dfeel=50
    sort
    exit
  end if
if (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=2) and (ds5=ds4) and (d5-d4=1) then
    set drawn=1
    set dcard1=dcard6
    set dfeel=50
    sort
    exit
  end if
if (ds2=ds3) and (d3-d2=1) and (ds4=ds3) and (d4-d3=1) and (ds5=ds4) and (d5-d4=2) then
    set drawn=1
    set dcard1=dcard6
    set dfeel=50
    sort
    exit
  end if
  -- checkFourOfAKind
  if (d1=d2) and (d2=d3) and (d3=d4) then
    set drawn=1
    if d5<8 then set dcard5=dcard6
    set dfeel=170
    sort
    exit
  end if
  if (d2=d3) and (d3=d4) and (d4=d5) then
    set drawn=1
    if d1<8 then set dcard1=dcard6
    set dfeel=180
    sort
    exit
  end if
  -- checkFullHouse
  if (d1=d2) and (d2=d3) and (d4=d5) then
    set dfeel=150
    set drawn=0
    exit
  end if
  if (d1=d2) and (d3=d4) and (d4=d5) then
    set drawn=0
    set dfeel=120
    exit
  end if
  -- checkFourFlush
  if (ds1=ds2) and (ds2=ds3) and (ds3=ds4) then
    if (d4=d5) and (d4>5) then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
      set dfeel=50
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
      set dfeel=40
      sort
      exit
    end if
  end if
  if (ds2=ds3) and (ds3=ds4) and (ds4=ds5) then
    if (d1=d2) and (d1>5) then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
      set dfeel=60
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
      set dfeel=40
      sort
      exit
    end if
  end if
  if (ds1=ds3) and (ds3=ds4) and (ds4=ds5) then
    if (d1=d2) and d2>5 then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
      set dfeel=30
      sort
      exit
    end if
    if (d2=d3) and d3>5 then
      set drawn=3
      set dcard1=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
      set dfeel=70
      sort
      exit
    else
      set drawn=1
      set dcard2=dcard6
      set dfeel=40
      sort
      exit
    end if
  end if
  if (ds1=ds2) and (ds2=ds4) and (ds4=ds5) then
    if (d2=d3) and d3>5 then
      set drawn=3
      set dcard1=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
      set dfeel=55
      sort
      exit
    end if
    if (d4=d3) and d3>5 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard5=dcard8
      set dfeel=45
      sort
      exit
    else
      set drawn=1
      set dcard3=dcard6
      set dfeel=40
      sort
      exit
    end if
  end if
  if (ds1=ds2) and (ds2=ds3) and (ds3=ds5) then
    if (d3=d4) and d4>5 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard5=dcard8
      set dfeel=65
      sort
      exit
    end if
    if (d4=d5) and d4>5 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
      set dfeel=45
      sort
      exit
    else
      set drawn=1
      set dcard4=dcard6
      set dfeel=40
      sort
      exit
    end if
  end if

  -- checkFourStraight
  if (d2-d1=2) and  (d3-d2=1) and (d4-d3=1) then
    if (d4=d5) and (d5>4) then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
      set dfeel=50
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
 set dfeel=40
      sort
      exit
    end if
  end if
  if (d2-d1=1) and  (d3-d2=2) and (d4-d3=1) then
    if (d4=d5) and (d5>4) then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
      set dfeel=60
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
     set dfeel=40
      sort
      exit
    end if
  end if
  if (d2-d1=1) and  (d3-d2=1) and (d4-d3=2) then
    if (d4=d5) and (d5>4) then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
      set dfeel=50
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
     set dfeel=40
      sort
      exit
    end if
  end if
  if (d3-d2=2) and  (d4-d3=1) and (d5-d4=1) then
    if (d1=d2) and (d2>4) then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
      set dfeel=60
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=50
      sort
      exit
    end if
  end if
  if (d3-d2=1) and  (d4-d3=2) and (d5-d4=1) then
    if (d1=d2) and (d2>4) then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
     set dfeel=40
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=20
      sort
      exit
    end if
  end if
  if (d3-d2=1) and  (d4-d3=1) and (d5-d4=2) then
    if (d1=d2) and (d2>4) then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=40
      sort
      exit
    end if
  end if
  if (d3-d2=1) and  (d4-d3=1) and (d5-d4=1) then
    if (d1=d2) and (d2>6) then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
     set dfeel=20
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=45
      sort
      exit
    end if
  end if
  if (d2-d1=1) and  (d3-d2=1) and (d4-d3=1) then
    if (d4=d5) and (d5>6) then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=45
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
 set dfeel=40
      sort
      exit
    end if
  end if
  if (d3-d1=2) and  (d4-d3=1) and (d5-d4=1) then
    if (d1=d2) and d2>4 then
      set drawn=3
      set dcard3=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
     set dfeel=50
      sort
      exit
    end if
    if (d2=d3) and d3>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
     set dfeel=45
      sort
      exit
    else
      set drawn=1
      set dcard2=dcard6
     set dfeel=50
      sort
      exit
    end if
  end if
  if (d2-d1=1) and  (d4-d2=2) and (d5-d4=1) then
    if (d2=d3) and d3>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard4=dcard7
      set dcard5=dcard8
     set dfeel=50
      sort
      exit
    end if
    if (d4=d3) and d3>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard5=dcard8
     set dfeel=45
      sort
      exit
    else
      set drawn=1
      set dcard3=dcard6
     set dfeel=30
      sort
      exit
    end if
  end if
  if (d2-d1=1) and  (d3-d2=1) and (d5-d3=2) then
    if (d3=d4) and d4>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard5=dcard8
     set dfeel=30
      sort
      exit
    end if
    if (d4=d5) and d4>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=55
      sort
      exit
    else
      set drawn=1
      set dcard4=dcard6
     set dfeel=60
      sort
      exit
    end if
  end if
 if (d2-d1=2) and  (d3-d2=1) and (d4-d3=1) then
    if (d4=d5) and d4>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
     set dfeel=50
      sort
      exit
    end if
  end if
 if (d2-d1=1) and  (d3-d2=2) and (d4-d3=1) then
    if (d4=d5) and d4>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
     set dfeel=45
      sort
      exit
    end if
  end if
 if (d2-d1=1) and  (d3-d2=1) and (d4-d3=2) then
    if (d4=d5) and d4>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard5=dcard6
     set dfeel=45
      sort
      exit
    end if
  end if
 if (d3-d2=2) and  (d4-d3=1) and (d5-d4=1) then
    if (d1=d2) and d2>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=45
      sort
      exit
    end if
  end if
 if (d3-d2=1) and  (d4-d3=2) and (d5-d4=1) then
    if (d1=d2) and d2>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=45
      sort
      exit
    end if
  end if
 if (d3-d2=1) and  (d4-d3=1) and (d5-d4=2) then
    if (d1=d2) and d2>4 then
      set drawn=3
      set dcard1=dcard6
      set dcard2=dcard7
      set dcard3=dcard8
     set dfeel=30
      sort
      exit
    else
      set drawn=1
      set dcard1=dcard6
     set dfeel=45
      sort
      exit
    end if
  end if
  -- checkTriplets
  if (d1=d2) and (d2=d3) then
    set drawn=2
    set dcard4=dcard6
    set dcard5=dcard7
     set dfeel=80
    sort
    exit
  end if
  if (d2=d3) and (d3=d4) then
    set drawn=2
    set dcard1=dcard6
    set dcard5=dcard7
 set dfeel=100
    sort
    exit
  end if
  if (d3=d4) and (d4=d5) then
    set drawn=2
    set dcard1=dcard6
    set dcard2=dcard7
     set dfeel=120
    sort
    exit
  end if
  -- checkTwoPair
  if (d1=d2) and (d3=d4) then
    set drawn=1
    set dcard5=dcard6
     set dfeel=80
    sort
    exit
  end if
  if (d1=d2) and (d4=d5) then
    set drawn=1
    set dcard3=dcard6
     set dfeel=85
    sort
    exit
  end if
  if (d2=d3) and (d4=d5) then
    set drawn=1
    set dcard1=dcard6
     set dfeel=95
    sort
    exit
  end if
  -- checkOnePair
  if (d1=d2) then
    set dcard3=dcard6
    set dcard4=dcard7
    if d5<9 or (random(2)=1) then
      set dcard5=dcard8
      set drawn=3
     set dfeel=40
    else
      set drawn=2
     set dfeel=30
    end if
    sort
    exit
  end if
  if (d2=d3) then
    set dcard1=dcard6
    set dcard4=dcard7
    if d5<9 or (random(2)=1) then
      set dcard5=dcard8
      set drawn=3
    else
      set drawn=2
    end if
     set dfeel=30
    sort
    exit
  end if
  if (d3=d4) then
    set dcard1=dcard6
    set dcard2=dcard7
    if d5<9 or (random(2)=1) then
      set dcard5=dcard8
      set drawn=3
    else
      set drawn=2
    end if
     set dfeel=40
    sort
    exit
  end if
  if (d4=d5) then
    set dcard1=dcard6
    set dcard2=dcard7
    set dcard3=dcard8
    set drawn=3
     set dfeel=50
    sort
    exit
  end if
  -- decideNoPair
  set drawn=3
  set dcard1=dcard7
  set dcard2=dcard8
  set dcard3=dcard6
 set dfeel=50
  sort